Calculatrices Casio Graphiques : Jeux, programmes, cours, pompes, astuces et programmation sur calculatrice graphique Casio et ClassPad 300 : programmes casio et jeux casio...

ClsViewWindow 1,126,1,1,64,10A~ZText 20,44,"BLACK JACK"While Getkey31Text 30,44,"PUSH [EXE]"Text 30,44," "WhileEndCls1Z1C300BPlot 1,8Plot 125,8LineFor 1A To 621ACPlot C,1Plot C,8LineNextText 57,3,"QUIT"Text 57,70,"+10"Text 57,48,"-10"Text 57,27,"BET"Text 57,91,"HIT"Text 57,108,"STAY"Plot 123,62While Z=1If (Getkey=69) And (P=0)Then For 1C To 50 Step 5Text C,1," "Next0DText 30,20,"CURRENT BUDGET:"Text 30,90,BText 40,20,"YOUR BET:"Text 40,60,DPlot 1,40Plot 125,40LineText 10,25,"[EXE] TO EXIT BET MENU"Plot 1,11EDoIf Getkey=59Then D-10DD<0D+10DText 40,60," "Text 40,60,DIfEndIf Getkey=49Then D+10DD>BD-10DText 40,60," "Text 40,60,DIfEndGetkey=310E1PPlot 1,1LpWhile E=1IfEnd5AIf P=1Then For 1C To 50 Step 5Text C,1," "NextText 20,1,"DEALER"Int 10Ran#+1MText 20,30,MInt 10Ran#+1NText 20,38,NM+NMText 40,1,"PLAYER"Int 10Ran#+1NText 40,30,NInt 10Ran#+1OText 40,38,OPlot 1,1N+OO48QDoIf Getkey=39Then Int 10Ran#+1NText 40,Q,NPlot 1,18+QQN+OOO>210PIfEndGetkey=294PLpWhile 1=PIfEndIf P=4Then 46QWhile ((M<18) Or (M<O)) And (M<22)Int 10Ran#+1NText 20,Q,NN+MMQ+8QPlot 1,1WhileEnd0PO=M Text 10,55,"PUSH"Plot 1,1If (O>M) Or <M>21)Then 2D+BBText 10,50,"YOU WIN"Plot 1,1IfEndIfEndIf (O>21) Or ((O<M) And (M<22))Then B-DBText 10,50,"YOU LOSE"Plot 1,1IfEnd0M0OGetkey=790ZWhileEndB0"---BANKRUPT---"